home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / bison / bison.dif < prev    next >
Text File  |  1989-02-02  |  8KB  |  298 lines
  1. diff -c /usr/pkg/gnu/src/bison/files.c ./files.c
  2. *** /usr/pkg/gnu/src/bison/files.c    Wed Jul  6 08:41:01 1988
  3. --- ./files.c    Wed Jan  4 11:46:16 1989
  4. ***************
  5. *** 30,35 ****
  6. --- 30,39 ----
  7.   #include "new.h"
  8.   #include "gram.h"
  9.   
  10. + #ifdef __STDC__
  11. + void *malloc(unsigned);
  12. + #endif
  13. + 
  14.   FILE *finput = NULL;
  15.   FILE *foutput = NULL;
  16.   FILE *fdefines = NULL;
  17. ***************
  18. *** 54,59 ****
  19. --- 58,64 ----
  20.   
  21.   char    *mktemp();    /* So the compiler won't complain */
  22.   FILE    *tryopen();    /* This might be a good idea */
  23. + char    *getenv();
  24.   
  25.   extern int verboseflag;
  26.   extern int definesflag;
  27. ***************
  28. *** 100,109 ****
  29.   #ifdef VMS
  30.     char *tmp_base = "sys$scratch:b_";
  31.   #else
  32.     char *tmp_base = "/tmp/b.";
  33.   #endif
  34. !   int tmp_len = strlen (tmp_base);
  35.   
  36.     if (spec_outfile)
  37.       {
  38.         /* -o was specified.  The precise -o name will be used for ftable.
  39. --- 105,126 ----
  40.   #ifdef VMS
  41.     char *tmp_base = "sys$scratch:b_";
  42.   #else
  43. + #  ifdef MSC5
  44. +   char *tmp_base;
  45. + #  else
  46.     char *tmp_base = "/tmp/b.";
  47. + #  endif
  48. + #endif
  49. +   int tmp_len;
  50. + 
  51. + #ifdef MSC5
  52. +   if ((tmp_base = getenv("TMP")) == NULL) tmp_base="";
  53.   #endif
  54. !   tmp_len = strlen (tmp_base);
  55.   
  56. + #ifdef MSC5
  57. +       strlwr(infile);
  58. + #endif
  59.     if (spec_outfile)
  60.       {
  61.         /* -o was specified.  The precise -o name will be used for ftable.
  62. ***************
  63. *** 111,116 ****
  64. --- 128,136 ----
  65.         name_base = spec_outfile;
  66.         /* BASE_LENGTH includes ".tab" but not ".c".  */
  67.         base_length = strlen (name_base);
  68. + #ifdef MSC5
  69. +       strlwr(name_base);
  70. + #endif
  71.         if (!strcmp (name_base + base_length - 2, ".c"))
  72.       base_length -= 2;
  73.         /* SHORT_BASE_LENGTH includes neither ".tab" nor ".c".  */
  74. ***************
  75. *** 144,150 ****
  76.       base_length -= 2;
  77.         short_base_length = base_length;
  78.   
  79. ! #ifdef VMS
  80.         name_base = stringappend(name_base, short_base_length, "_tab");
  81.   #else
  82.         name_base = stringappend(name_base, short_base_length, ".tab");
  83. --- 164,170 ----
  84.       base_length -= 2;
  85.         short_base_length = base_length;
  86.   
  87. ! #if defined(VMS) || defined(MSC5)
  88.         name_base = stringappend(name_base, short_base_length, "_tab");
  89.   #else
  90.         name_base = stringappend(name_base, short_base_length, ".tab");
  91. ***************
  92. *** 154,165 ****
  93.   
  94.     finput = tryopen(infile, "r");
  95.   
  96. !   filename = (char *) getenv ("BISON_SIMPLE");
  97. !   fparser = tryopen(filename ? filename : PFILE, "r");
  98.   
  99.     if (verboseflag)
  100.       {
  101.         outfile = stringappend(name_base, short_base_length, ".output");
  102.         foutput = tryopen(outfile, "w");
  103.       }
  104.   
  105. --- 174,201 ----
  106.   
  107.     finput = tryopen(infile, "r");
  108.   
  109. !   if(!(filename = (char *) getenv ("BISON_SIMPLE")))
  110. ! #ifdef MSC5    /* file doesn't exist in curent directory, try in INIT directory */
  111. !         if(access(PFILE,4) && (cp = getenv("INIT"))) {
  112. !                 filename = malloc(strlen(cp)+strlen(PFILE)+2);
  113. !                 strcpy(filename,cp);
  114. !                 cp = filename+strlen(filename);
  115. !                 *cp++ = '/';
  116. !                 strcpy(cp,PFILE);
  117. !         }
  118. !         else
  119. ! #endif
  120. !       filename = PFILE;
  121. ! 
  122. !   fparser = tryopen(filename, "r");
  123.   
  124.     if (verboseflag)
  125.       {
  126. + #ifdef MSC5
  127. +       outfile = stringappend(name_base, short_base_length, ".out");
  128. + #else
  129.         outfile = stringappend(name_base, short_base_length, ".output");
  130. + #endif
  131.         foutput = tryopen(outfile, "w");
  132.       }
  133.   
  134. ***************
  135. *** 169,185 ****
  136. --- 205,239 ----
  137.         fdefines = tryopen(defsfile, "w");
  138.       }
  139.   
  140. + #ifdef MSC5
  141. +   actfile = mktemp(stringappend(tmp_base, tmp_len, "acXXXXXX"));
  142. + #else
  143.     actfile = mktemp(stringappend(tmp_base, tmp_len, "act.XXXXXX"));
  144. + #endif
  145.     faction = tryopen(actfile, "w+");
  146. + #ifndef MSC5
  147.     unlink(actfile);
  148. + #endif
  149.   
  150. + #ifdef MSC5
  151. +   tmpattrsfile = mktemp(stringappend(tmp_base, tmp_len, "atXXXXXX"));
  152. + #else
  153.     tmpattrsfile = mktemp(stringappend(tmp_base, tmp_len, "attrs.XXXXXX"));
  154. + #endif
  155.     fattrs = tryopen(tmpattrsfile,"w+");
  156. + #ifndef MSC5
  157.     unlink(tmpattrsfile);
  158. + #endif
  159.   
  160. + #ifdef MSC5
  161. +   tmptabfile = mktemp(stringappend(tmp_base, tmp_len, "taXXXXXX"));
  162. + #else
  163.     tmptabfile = mktemp(stringappend(tmp_base, tmp_len, "tab.XXXXXX"));
  164. + #endif
  165.     ftable = tryopen(tmptabfile, "w+");
  166. + #ifndef MSC5
  167.     unlink(tmptabfile);
  168. + #endif
  169.   
  170.       /* These are opened by `done' or `open_extra_files', if at all */
  171.     if (spec_outfile)
  172. ***************
  173. *** 191,198 ****
  174. --- 245,257 ----
  175.     attrsfile = stringappend(name_base, short_base_length, "_stype.h");
  176.     guardfile = stringappend(name_base, short_base_length, "_guard.c");
  177.   #else
  178. + #  ifdef MSC5
  179. +   attrsfile = stringappend(name_base, short_base_length, ".sth");
  180. +   guardfile = stringappend(name_base, short_base_length, ".guc");
  181. + #  else
  182.     attrsfile = stringappend(name_base, short_base_length, ".stype.h");
  183.     guardfile = stringappend(name_base, short_base_length, ".guard.c");
  184. + #  endif
  185.   #endif
  186.   }
  187.   
  188. ***************
  189. *** 204,214 ****
  190.   {
  191.     FILE *ftmp;
  192.     int c;
  193. !   char *filename;
  194.           /* JF change open parser file */
  195.     fclose(fparser);
  196.     filename = (char *) getenv ("BISON_HAIRY");
  197. !   fparser= tryopen(filename ? filename : PFILE1, "r");
  198.   
  199.           /* JF change from inline attrs file to separate one */
  200.     ftmp = tryopen(attrsfile, "w");
  201. --- 263,284 ----
  202.   {
  203.     FILE *ftmp;
  204.     int c;
  205. !   char *filename, *cp;
  206.           /* JF change open parser file */
  207.     fclose(fparser);
  208.     filename = (char *) getenv ("BISON_HAIRY");
  209. ! #ifdef MSC5    /* file doesn't exist in curent directory, try in INIT directory */
  210. !         if(access(PFILE1,4) && (cp = getenv("INIT"))) {
  211. !                 filename = malloc(strlen(cp)+strlen(PFILE)+2);
  212. !                 strcpy(filename,cp);
  213. !                 cp = filename+strlen(filename);
  214. !                 *cp++ = '/';
  215. !                 strcpy(cp,PFILE1);
  216. !         }
  217. !         else
  218. ! #endif
  219. !       filename = PFILE1;
  220. !   fparser= tryopen(filename, "r");
  221.   
  222.           /* JF change from inline attrs file to separate one */
  223.     ftmp = tryopen(attrsfile, "w");
  224. ***************
  225. *** 283,288 ****
  226. --- 353,365 ----
  227.     if (k==0) sys$exit(SS$_NORMAL);
  228.     sys$exit(SS$_ABORT);
  229.   #else
  230. + #  ifdef MSC5
  231. +   if (actfile) unlink(actfile);
  232. +   if (tmpattrsfile) unlink(tmpattrsfile);
  233. +   if (tmptabfile) unlink(tmptabfile);
  234. +   exit(k);
  235. + #  else
  236.     exit(k);
  237. + #  endif
  238.   #endif
  239.   }
  240. diff -c /usr/pkg/gnu/src/bison/machine.h ./machine.h
  241. *** /usr/pkg/gnu/src/bison/machine.h    Fri Dec 19 17:38:40 1986
  242. --- ./machine.h    Sat Dec 31 20:35:34 1988
  243. ***************
  244. *** 21,26 ****
  245. --- 21,32 ----
  246.   #define    MAXSHORT    32767
  247.   #define    MINSHORT    -32768
  248.   
  249. + #ifdef MSC5
  250. + #define    BITS_PER_WORD    16
  251. + #define    WORDSIZE(n)    (((n) + 15) / 16)
  252. + #define    SETBIT(x, i)    ((x)[(i)>>4] |= (1<<((i) & 15)))
  253. + #else
  254.   #define    BITS_PER_WORD    32
  255.   #define    WORDSIZE(n)    (((n) + 31) / 32)
  256.   #define    SETBIT(x, i)    ((x)[(i)>>5] |= (1<<((i) & 31)))
  257. + #endif
  258. diff -c /usr/pkg/gnu/src/bison/output.c ./output.c
  259. *** /usr/pkg/gnu/src/bison/output.c    Wed Oct 12 05:06:23 1988
  260. --- ./output.c    Sat Dec 31 20:35:18 1988
  261. ***************
  262. *** 103,110 ****
  263.   #include "gram.h"
  264.   #include "state.h"
  265.   
  266.   #define    MAXTABLE 32767
  267. ! 
  268.   
  269.   extern int debugflag;
  270.   extern int nolinesflag;
  271. --- 103,113 ----
  272.   #include "gram.h"
  273.   #include "state.h"
  274.   
  275. + #ifdef MSC5
  276. + #define    MAXTABLE 16383
  277. + #else
  278.   #define    MAXTABLE 32767
  279. ! #endif
  280.   
  281.   extern int debugflag;
  282.   extern int nolinesflag;
  283. *** /usr/pkg/gnu/src/bison/bison.simple    Sun Jan 29 13:40:33 1989
  284. --- ./bison.simple    Sun Jan 29 13:43:05 1989
  285. ***************
  286. *** 113,118 ****
  287. --- 113,122 ----
  288.      It is replaced by the list of actions, each action
  289.      as one case of the switch.  */
  290.   
  291. + #ifndef BSD
  292. + #define bcopy(s,d,l) memcpy(d,s,l)
  293. + #endif
  294. + 
  295.   #define yyerrok        (yyerrstatus = 0)
  296.   #define yyclearin    (yychar = YYEMPTY)
  297.   #define YYEMPTY        -2
  298.